﻿Imports System.ComponentModel
Public Class MDI
    Public varIdMensaje As Integer
    Public varTiene As String 'Variables para determinar cual timer tiene el mando
    Public Sub Permisos()
        'Modulo de facturación
        SeguridadSGS.Permisos(My.Resources.SeguridadSGS.Facturas, BarButtonItem15) ''Formulario de Facturación
        SeguridadSGS.Permisos(My.Resources.SeguridadSGS.CierresCaja, BarButtonItem14) ''Formulario de Cierres de Caja
        SeguridadSGS.Permisos(My.Resources.SeguridadSGS.MovimientosCaja, BarButtonItem48) ''Formulario de Movimientos de Caja
        SeguridadSGS.Permisos(My.Resources.SeguridadSGS.HistorialFactura, BarButtonItem18) ''Formulario de Historial de Factura
        SeguridadSGS.Permisos(My.Resources.SeguridadSGS.HistorialCierreCaja, btCierre) ''Formulario de Historial de Cierre de Caja
        SeguridadSGS.Permisos(My.Resources.SeguridadSGS.HistorialMovimientoCaja, btmovimientoscaja) ''Formulario de Historial de Movimientos de Caja
        SeguridadSGS.Permisos(My.Resources.SeguridadSGS.ReporteTiposPagos, btHistorialSubsidios) ''Formulario de Reporte por tipos de pago
        SeguridadSGS.Permisos(My.Resources.SeguridadSGS.ReporteProductosVendidos, btReporteVentaProducto) ''btReporteVentaProducto
        SeguridadSGS.Permisos(My.Resources.SeguridadSGS.ReporteSoportePago, BarButtonItem59) ''ReporteSoportePago
        SeguridadSGS.Permisos(My.Resources.SeguridadSGS.ReporteEstadoCuenta, BarButtonItem61) ''ReporteEstadoCuenta
        SeguridadSGS.Permisos(My.Resources.SeguridadSGS.DeduccionPorCliente, BarButtonItem62) ''DeduccionPorCliente
        SeguridadSGS.Permisos(My.Resources.SeguridadSGS.PersonalizarBotonesFacturacion, BarButtonItem60) ''PersonalizarBotonesFacturacion

        'Mosulo de seguridad
        SeguridadSGS.Permisos(My.Resources.SeguridadSGS.PermisoSeguridad, seg_bclase) ''Usuarios
        SeguridadSGS.Permisos(My.Resources.SeguridadSGS.Roles, BarButtonItem3) ''Usuarios
        SeguridadSGS.Permisos(My.Resources.SeguridadSGS.Usuarios, barb_Usuarios) ''Usuarios
        SeguridadSGS.Permisos(My.Resources.SeguridadSGS.HistorialAccionesSeguridad, BarButtonItem4) ''Usuarios
        SeguridadSGS.Permisos(My.Resources.SeguridadSGS.InformacionUsuario, BarButtonItem58) ''InformacionUsuario
        SeguridadSGS.Permisos(My.Resources.SeguridadSGS.ClonarRol, BarButtonItem57) ''ClonarRol
        SeguridadSGS.Permisos(My.Resources.SeguridadSGS.CargarArchivoSeguridad, BarButtonItem54) ''CargarArchivoSeguridad
        SeguridadSGS.Permisos(My.Resources.SeguridadSGS.RestaurarConfSeguridadPorDefefecto, BarButtonItem55) ''RestaurarConfSeguridadPorDefefecto
        'Modulo de Clientes
        SeguridadSGS.Permisos(My.Resources.SeguridadSGS.Empresas, BarButtonItem10)
        SeguridadSGS.Permisos(My.Resources.SeguridadSGS.Clientes, BarButtonItem11)
        SeguridadSGS.Permisos(My.Resources.SeguridadSGS.CarnetClientes, BarButtonItem41)
        'Modulo de EmpleadosCargos
        SeguridadSGS.Permisos(My.Resources.SeguridadSGS.CargosEmpleados, BarButtonItem12) 'Cargos
        SeguridadSGS.Permisos(My.Resources.SeguridadSGS.Empleados, BarButtonItem8) 'Empleados
        SeguridadSGS.Permisos(My.Resources.SeguridadSGS.CarnetEmpleados, BarButtonItem42) 'Carnets empleados
        'Modulo de Inventario
        SeguridadSGS.Permisos(My.Resources.SeguridadSGS.Proveedores, BarButtonItem23) 'Proveedores
        SeguridadSGS.Permisos(My.Resources.SeguridadSGS.CategoriasProducto, BarButtonItem7) 'Categoria de productos
        SeguridadSGS.Permisos(My.Resources.SeguridadSGS.UnidadesMedida, BarButtonItem13) 'Unidades de medida
        SeguridadSGS.Permisos(My.Resources.SeguridadSGS.CategoriasProductoVenta, BarButtonItem43) 'Categoria producto venta
        SeguridadSGS.Permisos(My.Resources.SeguridadSGS.Productos, BarButtonItem6) 'Productos
        SeguridadSGS.Permisos(My.Resources.SeguridadSGS.RegistroEntradaInventario, BarButtonItem45) 'Registro de entradas al inventario
        SeguridadSGS.Permisos(My.Resources.SeguridadSGS.ProductosVenta, BarButtonItem5) 'Productos venta
        'Modulo de Herramientas
        SeguridadSGS.Permisos(My.Resources.SeguridadSGS.Mensajes, BarButtonItem32) 'Mensajes
        SeguridadSGS.Permisos(My.Resources.SeguridadSGS.HistorialMensajes, BarButtonHistoMensajes) 'Historial de mensajes
        SeguridadSGS.Permisos(My.Resources.SeguridadSGS.CambiarApariencia, BarButtonItem2) 'Cambiar apariencia
        'Modulo de configuracion general
        SeguridadSGS.Permisos(My.Resources.SeguridadSGS.ConexionServidor, BarButtonItem49) 'Conexion servidor
        SeguridadSGS.Permisos(My.Resources.SeguridadSGS.Log, BarButtonItem50) 'Log
        SeguridadSGS.Permisos(My.Resources.SeguridadSGS.PropiedadesServidor, BarButtonItem56) 'PropiedadesServidor
         'Modulo de ayuda
        SeguridadSGS.Permisos(My.Resources.SeguridadSGS.EnviarEmail, BarButtonItem51) 'EnviarEmail
    End Sub
    Private Sub MDI_FormClosing(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing
        Conexion.Close()
        Application.Exit()
    End Sub

    Private Sub MDI_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        'TODO: This line of code loads data into the 'DbFireAndIceDataSet.tmensajes' table. You can move, or remove it, as needed.
        varTiene = "TieneTimer1"
        login.Close()
        Permisos()
    End Sub

    Private Sub BarButtonItem15_ItemClick(sender As System.Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItem15.ItemClick
        My.Forms.frmFactura.ShowDialog()
    End Sub


    Private Sub BarButtonItem16_ItemClick(sender As System.Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItem16.ItemClick
        My.Forms.frmTiposPago.MdiParent = Me
        My.Forms.frmTiposPago.Show()
    End Sub

    Private Sub BarButtonItem17_ItemClick(sender As System.Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItem17.ItemClick
        My.Forms.descuentostipos.MdiParent = Me
        My.Forms.descuentostipos.Show()
    End Sub

    Private Sub BarButtonItem18_ItemClick(sender As System.Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItem18.ItemClick
        My.Forms.frmHistorialFacturas.MdiParent = Me
        My.Forms.frmHistorialFacturas.Show()
    End Sub

    Private Sub BarButtonItem6_ItemClick(ByVal sender As System.Object, ByVal e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItem6.ItemClick
        My.Forms.Productos.MdiParent = Me
        My.Forms.Productos.Show()
    End Sub

    Private Sub BarButtonItem7_ItemClick(ByVal sender As System.Object, ByVal e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItem7.ItemClick
        My.Forms.CategoriaProductos.MdiParent = Me
        My.Forms.CategoriaProductos.Show()
    End Sub

    Private Sub BarButtonItem13_ItemClick(ByVal sender As System.Object, ByVal e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItem13.ItemClick
        My.Forms.CategoriaUnidades.MdiParent = Me
        My.Forms.CategoriaUnidades.Show()
    End Sub



    Private Sub BarButtonItem23_ItemClick(ByVal sender As System.Object, ByVal e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItem23.ItemClick
        My.Forms.Proveedores.MdiParent = Me
        My.Forms.Proveedores.Show()
    End Sub

    Private Sub BarButtonItem5_ItemClick(ByVal sender As System.Object, ByVal e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItem5.ItemClick
        My.Forms.ProductoVenta.MdiParent = Me
        My.Forms.ProductoVenta.Show()
    End Sub

    Private Sub BarButtonItem8_ItemClick(ByVal sender As System.Object, ByVal e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItem8.ItemClick
        My.Forms.frmEmpleado.MdiParent = Me
        My.Forms.frmEmpleado.Show()
    End Sub

    Private Sub BarButtonItem9_ItemClick(ByVal sender As System.Object, ByVal e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItem9.ItemClick
        My.Forms.frmTipoNomina.MdiParent = Me
        My.Forms.frmTipoNomina.Show()
    End Sub

    Private Sub BarButtonItem10_ItemClick(ByVal sender As System.Object, ByVal e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItem10.ItemClick
        My.Forms.Empresas.MdiParent = Me
        My.Forms.Empresas.Show()
    End Sub

    Private Sub BarButtonItem11_ItemClick(ByVal sender As System.Object, ByVal e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItem11.ItemClick
        My.Forms.Clientes.MdiParent = Me
        My.Forms.Clientes.Show()
    End Sub

    Private Sub BarButtonItem12_ItemClick(ByVal sender As System.Object, ByVal e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItem12.ItemClick
        My.Forms.frmCargosvb.MdiParent = Me
        My.Forms.frmCargosvb.Show()
    End Sub

    Private Sub BarButtonItem20_ItemClick(sender As System.Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItem20.ItemClick
        My.Forms.Deducciones.MdiParent = Me
        My.Forms.Deducciones.Show()
    End Sub

    Private Sub BarButtonItem21_ItemClick(sender As System.Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItem21.ItemClick
        My.Forms.AgregarCategoriaDeducciones.MdiParent = Me
        My.Forms.AgregarCategoriaDeducciones.Show()
    End Sub

    Private Sub BarButtonItem22_ItemClick(sender As System.Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItem22.ItemClick
        My.Forms.Planilla.MdiParent = Me
        My.Forms.Planilla.Show()
    End Sub

    Private Sub BarButtonItem26_ItemClick(sender As System.Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItem26.ItemClick
        My.Forms.Horarios2.MdiParent = Me
        My.Forms.Horarios2.Show()
    End Sub

    Private Sub BarButtonItem27_ItemClick(sender As System.Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItem27.ItemClick
        ' My.Forms.RegistroMarcas.MdiParent = Me
        My.Forms.RegistroMarcas.Show()

    End Sub

    Private Sub BarButtonItem29_ItemClick(sender As System.Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItem29.ItemClick
        My.Forms.Remuneraciones.MdiParent = Me
        My.Forms.Remuneraciones.Show()
    End Sub

    Private Sub BarButtonItem28_ItemClick(sender As System.Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItem28.ItemClick
        My.Forms.CategoriaRemuneraciones.MdiParent = Me
        My.Forms.CategoriaRemuneraciones.Show()
    End Sub

    Private Sub btAlmuerzos_ItemClick(sender As System.Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles btAlmuerzos.ItemClick
        My.Forms.registroalmuerzosEMP.MdiParent = Me
        My.Forms.registroalmuerzosEMP.Show()
    End Sub

    Private Sub BarButtonItem30_ItemClick(sender As System.Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItem30.ItemClick
        'My.Forms.EmpleadoDelMes.MdiParent = Me
        'My.Forms.EmpleadoDelMes.Show()
    End Sub

    Private Sub btReduccionEfectivo_ItemClick(sender As System.Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles btReduccionEfectivo.ItemClick
        My.Forms.frmRetiroEfectivo.MdiParent = Me
        My.Forms.frmRetiroEfectivo.Show()
    End Sub

    Private Sub BarButtonItem32_ItemClick(sender As System.Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItem32.ItemClick
        My.Forms.frmMensajes.ShowDialog()
    End Sub


    Private Sub Timer1_Tick(sender As System.Object, e As System.EventArgs) Handles Timer1.Tick
        Try
            Dim varCuantosLeidos As Integer = TmensajesTableAdapter1.ScalarQuerySaberCuantosMensajesNoSeHanVisto
            If varCuantosLeidos <> 0 And varTiene = "TieneTimer1" Then
                varIdMensaje = TmensajesTableAdapter1.GetDataBy(False).Item(0).idmensaje
                Dim varTitulo As String = TmensajesTableAdapter1.GetDataBy(False).Item(0).titulomsj.ToString()
                Dim varMensaje As String = TmensajesTableAdapter1.GetDataBy(False).Item(0).mensajemsj.ToString()
                Dim varColorTitulo As String = TmensajesTableAdapter1.GetDataBy(False).Item(0).colortitulo.ToString()
                Dim varColorMensaje As String = TmensajesTableAdapter1.GetDataBy(False).Item(0).colormensaje.ToString()

                AlertControl1.AppearanceCaption.ForeColor = Color.FromArgb(varColorTitulo)
                AlertControl1.AppearanceText.ForeColor = Color.FromArgb(varColorMensaje)
                AlertControl1.Show(Me, varTitulo, varMensaje)
                varTiene = "TieneTimer2"

                'TmensajesTableAdapter1.UpdateQueryMensajeVisto(True, varIdMensaje)
            End If
        Catch ex As Exception

        End Try
    End Sub

    Private Sub BarButtonItem33_ItemClick_1(sender As System.Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItem33.ItemClick
        My.Forms.Configuraciones.MdiParent = Me
        My.Forms.Configuraciones.Show()
    End Sub

    Private Sub BarButtonItem34_ItemClick(ByVal sender As System.Object, ByVal e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItem34.ItemClick
        'My.Forms.Creditos.MdiParent = Me
        'My.Forms.Creditos.Show()
    End Sub

    Private Sub BarButtonItem35_ItemClick(ByVal sender As System.Object, ByVal e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItem35.ItemClick
        'My.Forms.pagocredito.MdiParent = Me
        'My.Forms.pagocredito.Show()
    End Sub

    Private Sub Timer2_Tick(sender As System.Object, e As System.EventArgs) Handles Timer2.Tick
        If varTiene = "TieneTimer2" Then
            TmensajesTableAdapter1.UpdateQueryMensajeVisto(True, varIdMensaje)
            varTiene = "TieneTimer1"
        End If

    End Sub





    Private Sub BarButtonItem38_ItemClick(ByVal sender As System.Object, ByVal e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItem38.ItemClick
        My.Forms.frmClienteCE.MdiParent = Me
        My.Forms.frmClienteCE.Show()
    End Sub

    Private Sub BarButtonItem39_ItemClick(ByVal sender As System.Object, ByVal e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItem39.ItemClick
        My.Forms.frmEmpleadoCE.MdiParent = Me
        My.Forms.frmEmpleadoCE.Show()
    End Sub

    Private Sub BarButtonItem40_ItemClick(ByVal sender As System.Object, ByVal e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItem40.ItemClick
        My.Forms.frmEmpresaCE.MdiParent = Me
        My.Forms.frmEmpresaCE.Show()
    End Sub



    Private Sub BarButtonItem43_ItemClick(ByVal sender As System.Object, ByVal e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItem43.ItemClick
        My.Forms.TipoProducto.MdiParent = Me
        My.Forms.TipoProducto.Show()
    End Sub

    Private Sub BarButtonItem37_ItemClick(sender As System.Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItem37.ItemClick
        My.Forms.TipoHorasExtra.MdiParent = Me
        My.Forms.TipoHorasExtra.Show()
    End Sub

    Private Sub BarButtonItem36_ItemClick(sender As System.Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItem36.ItemClick
        My.Forms.CalcularHorasExtras.MdiParent = Me
        My.Forms.CalcularHorasExtras.Show()
    End Sub

    Private Sub BarButtonItem44_ItemClick(sender As System.Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItem44.ItemClick
        My.Forms.GenerarPlanilla.MdiParent = Me
        My.Forms.GenerarPlanilla.Show()
    End Sub

    Private Sub BarButtonItem41_ItemClick_1(ByVal sender As System.Object, ByVal e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItem41.ItemClick
        frmCarnets.Show()
    End Sub

    Private Sub BarButtonItem42_ItemClick_1(ByVal sender As System.Object, ByVal e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItem42.ItemClick
        Carnetempleado.Show()

    End Sub

    Private Sub BarButtonItem45_ItemClick(sender As System.Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItem45.ItemClick
        My.Forms.Lotes.MdiParent = Me
        My.Forms.Lotes.Show()
    End Sub

    Private Sub btCierre_ItemClick(sender As System.Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles btCierre.ItemClick
        My.Forms.fCierreCaja.MdiParent = Me
        My.Forms.fCierreCaja.Show()
    End Sub

    Private Sub btmovimientoscaja_ItemClick(sender As System.Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles btmovimientoscaja.ItemClick
        My.Forms.frmMovimientosHistorial.MdiParent = Me
        My.Forms.frmMovimientosHistorial.Show()
    End Sub

    Private Sub BarButtonItem14_ItemClick(sender As System.Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItem14.ItemClick
        My.Forms.frmAutentificarCierreCaja.ShowDialog()
    End Sub

    Private Sub BarButtonItem48_ItemClick(sender As System.Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItem48.ItemClick
        My.Forms.frmAutentificarMovCaja.ShowDialog()
    End Sub

    Private Sub btHistorialSubsidios_ItemClick(sender As System.Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles btHistorialSubsidios.ItemClick
        My.Forms.frmConsultaSubsidios.MdiParent = Me
        My.Forms.frmConsultaSubsidios.Show()
    End Sub

    Private Sub seg_bcontrol_ItemClick(sender As System.Object, e As DevExpress.XtraBars.ItemClickEventArgs)
        My.Forms.seg_fcontrol.MdiParent = Me
        My.Forms.seg_fcontrol.Show()
    End Sub

    Private Sub seg_bclase_ItemClick(sender As System.Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles seg_bclase.ItemClick
        My.Forms.seg_fPermisos.MdiParent = Me
        My.Forms.seg_fPermisos.Show()
    End Sub

    Private Sub BarButtonItem3_ItemClick(sender As System.Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItem3.ItemClick
        My.Forms.seg_fRol.MdiParent = Me
        My.Forms.seg_fRol.Show()
    End Sub

    Private Sub barb_Usuarios_ItemClick(sender As System.Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles barb_Usuarios.ItemClick
        My.Forms.fUsuarios.MdiParent = Me
        My.Forms.fUsuarios.Show()
    End Sub

    Private Sub BarButtonItem1_ItemClick(sender As System.Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItem1.ItemClick
        Dim opcion As Integer = MsgBox("Al cambiar de Usuario el Sistema se reiniciará y se cerrarán todas las ventanas, ¿Está seguro que desea continuar?", MsgBoxStyle.YesNo + MsgBoxStyle.Question, "Cambiar Usuario")
        If opcion = vbYes Then
            Try
                Application.Restart()

            Catch ex As Exception
                LogSGS.RegistrarLogSinEnviarCorreo(My.Resources.StringGlobal.prgVinicio, "Error al reiniciar el Sistema mientras se cambia de Usuario", ex, My.Resources.StringGlobal.mdlGeneral, "MDI", "Cambiar Usuario")
                MsgBox("No se pudo cambiar de Usuario, favor cierre la apliación o intenté más tarde", MsgBoxStyle.Critical + MsgBoxStyle.OkOnly, "Error al cambiar de Usuario")
            End Try

        End If
    End Sub

    Private Sub BarButtonItem2_ItemClick(sender As System.Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItem2.ItemClick
        My.Forms.fApariencia.ShowDialog()
    End Sub

    Private Sub BarButtonItem49_ItemClick(sender As System.Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItem49.ItemClick
        My.Forms.ConexionDesdeAPP.ShowDialog()
    End Sub

    Private Sub btReporteVentaProducto_ItemClick(sender As System.Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles btReporteVentaProducto.ItemClick
        My.Forms.frmReporteVentaProductos.MdiParent = Me
        My.Forms.frmReporteVentaProductos.Show()
    End Sub



    Private Sub BarButtonHistoMensajes_ItemClick(sender As System.Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonHistoMensajes.ItemClick
        My.Forms.frmMensajesHistorial.MdiParent = Me
        My.Forms.frmMensajesHistorial.Show()
    End Sub

    Private Sub BarButtonItem50_ItemClick(sender As System.Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItem50.ItemClick
        AutentificarLog.ShowDialog()
    End Sub

    Private Sub BarButtonItem51_ItemClick(sender As System.Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItem51.ItemClick
        EnviarCorreo.ShowDialog()
    End Sub

    Private Sub BarButtonItem52_ItemClick(sender As System.Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItem52.ItemClick
        Contacto.ShowDialog()
    End Sub

 

    Private Sub RibbonControl_ApplicationButtonClick(sender As System.Object, e As System.EventArgs) Handles RibbonControl.ApplicationButtonClick
        Contacto.ShowDialog()
    End Sub

    Private Sub BarButtonItem53_ItemClick(sender As System.Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItem53.ItemClick
        AcercaDe.ShowDialog()
    End Sub

    Private Sub BarButtonItem54_ItemClick(sender As System.Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItem54.ItemClick
        CargarArchivoSeguridad.ShowDialog()
    End Sub

    Private Sub BarButtonItem55_ItemClick(sender As System.Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItem55.ItemClick
        SeguridadSGS.RestaurarValoresPorDefecto()
    End Sub

    Private Sub BarButtonItem56_ItemClick(sender As System.Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItem56.ItemClick
        PropiedadesServidor.ShowDialog()
    End Sub

    Private Sub BarButtonItem57_ItemClick(sender As System.Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItem57.ItemClick
        ClonarRol.ShowDialog()
    End Sub

    Private Sub BarButtonItem58_ItemClick(sender As System.Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItem58.ItemClick
        My.Forms.VistaDinamicaUsuarios.MdiParent = Me
        My.Forms.VistaDinamicaUsuarios.Show()
    End Sub

    Private Sub BarButtonItem59_ItemClick(sender As System.Object, e As DevExpress.XtraBars.ItemClickEventArgs)
        MenuRapido.ShowDialog()
    End Sub

    Private Sub BarButtonItem60_ItemClick(sender As System.Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItem60.ItemClick
        SetBotonesPersonalizados.ShowDialog()
    End Sub

    Private Sub BarButtonItem59_ItemClick_1(ByVal sender As System.Object, ByVal e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItem59.ItemClick
        Dim reporte As New rptDetalleProducto
        reporte.ShowPreview()
    End Sub

    Private Sub BarButtonItem61_ItemClick(ByVal sender As System.Object, ByVal e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItem61.ItemClick
        Dim reporte As New rptResumenPorTicket
        reporte.ShowPreview()
    End Sub

    Private Sub BarButtonItem62_ItemClick(ByVal sender As System.Object, ByVal e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItem62.ItemClick
        fLlamaRptDeduccionPorEmpleado.ShowDialog()
    End Sub

    Private Sub RibbonControl_Click(sender As System.Object, e As System.EventArgs) Handles RibbonControl.Click

    End Sub
End Class